﻿Imports QLTHUVIEN.DAO
Imports QLTHUVIEN.DTO

Public Class BangCapBUS
    Public Function LayDanhSach() As DataTable
        Dim bc As BangCapDAO = New BangCapDAO()
        Dim dt As DataTable = bc.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemBangCap(ByVal bangcap As BangCapDTO)
        Dim bcDao As New BangCapDAO()
        bcDao.ThemBangCap(bangcap)
    End Sub

    Public Sub SuaBangCap(ByVal bangcap As BangCapDTO)
        Dim bcDao As New BangCapDAO()
        bcDao.SuaBangCap(bangcap)
    End Sub

    Public Sub XoaBangCap(ByVal bangcap As BangCapDTO)
        Dim bcDao As New BangCapDAO()
        bcDao.XoaBangCap(bangcap)
    End Sub
End Class
